*****MORE TI85 PROGRAMS*****
Brought to you by Best of The Best & DG!

Click here to return to the main page!

Click here to go back to TI85 program's main page

NOTE:
When putting these programs in the sign (») is the STO button!

PROGRAM LIST

Tic-Tac-Toe game.

These programs are freeware, but if you use them I ask that you keep every line the way that the writer has given it to us as unless you have writen consent from the writer our someone that maintains this page. Thank you!

If you have any problems with a program or a question then E-mail me at [email protected]. Thank you. Enjoy using these programs.
Also for instruction on any program that you don't understand E-mail me at [email protected].
Program one: Tic-Tac-Toe game

Lbl START2
0»A
0»B
0»C
0»D
0»E
0»F
0»G
0»H
0»I
ClLCD
For(X,1,7,1)
Outpt(X,8,":")
Outpt(X,12,":")
End
For(X,4,16,1)
Outpt(3,X,"-")
Outpt(5,X,"-")
End
Outpt(2,6,"1")
Outpt(2,10,"2")
Outpt(2,14,"3")
Outpt(4,6,"4")
Outpt(4,10,"5")
Outpt(4,14,"6")
Outpt(6,6,"7")
Outpt(6,10,"8")
Outpt(6,14,"9")
Lbl START
Menu(1,"1-3",ONE,2,"4-6",TWO,3,"7-9",THREE,5,"EXIT",EXIT)
Lbl ONE
Menu(1,"1",MOVE1,2,"2",MOVE2,3,"3",MOVE3,5,"BACK",START)
Lbl TWO
Menu(1,"4",MOVE4,2,"5",MOVE55,3,"6",MOVE6,5,"BACK",START)
Lbl THREE
Menu(1,"7",MOVE7,2,"8",MOVE8,3,"9",MOVE9,5,"BACK",START)
Lbl MOVE1
If A==0
Then
Outpt(2,6,"X")
1»A
Goto PLAY
End
Goto START
Lbl MOVE 2
If B==0
Then
Outpt(2,10,"X")
1»B
Goto PLAY
End
Goto START
Lbl MOVE3
If C==0
Then
Outpt(2,14,"X")
1»C
Goto PLAY
End
Goto START
Lbl MOVE4
If D==0
Then
Outpt(4,6,"X")
1»D
Goto PLAY
End
Goto START
Lbl MOVE55
If E==0
Then
Outpt(4,10,"X")
1»E
Goto PLAY
End
Goto START
Lbl MOVE6
If F==0
Then
Outpt(4,14,"X")
1»F
Goto PLAY
End
Goto START
Lbl MOVE7
If G==0
Then
Outpt(6,6,"X")
1»G
Goto PLAY
End
Goto START
Lbl MOVE8
If H==0
Then
Outpt(6,10,"X")
1»H
Goto PLAY
End
Goto START
Lbl MOVE9
If I==0
Then
Outpt(6,14,"X")
1»I
Goto PLAY
End
Goto START
Lbl PLAY
If A==1 and B==1 and C==1
Then
Goto HUMAN
End
If D==1 and E==1 and F==1
Then
Goto HUMAN
End
If G==1 and H==1 and I==1
Then
Goto HUMAN
End
If A==1 and D==1 and G==1
Then
Goto HUMAN
End
If B==1 and E==1 and H==1
Then
Goto HUMAN
End
If C==1 and F==1 and I==1
Then
Goto HUMAN
End
If A==1 and E==1 and I==1
Then Goto HUMAN
End
If C==1 and E==1 and G==1
Then
Goto HUMAN
End
If A>0 and B>0 and C>0 and D>0 and E>0 and F>0 and G>0 and H>0 and I>0
Then
Goto TIE
End
Goto PLAYER2
Lbl PLAYER2
If A==2 and B==2 and C==0
Then
3»O
Goto NEXT
End
If D==2 and E==2 and F==0
Then
6»O
Goto NEXT
End
If G==2 and H==2 and I==0
Then
9»O
Goto NEXT
End
If A==2 and D==2 and G==0
Then
7»O
Goto NEXT
End
If B==2 and E==2 and H==0
Then
8»O
Goto NEXT
End
If C==2 and F==2 and I==0
Then
9»O
Goto NEXT
End
If B==2 and C==2 and A==0
Then
1»O
Goto NEXT
End
If E==2 and F==2 and D==0
Then
4»O
Goto NEXT
End
If H==2 and I==2 and G==0
Then
7»O
Goto NEXT
End
If D==2 and G==2 and A==0
Then
1»O
Goto NEXT
End
If E==2 and H==2 and B==0
Then
2»O
Goto NEXT
End
If F==2 and I==2 and C==0
Then
3»O
Goto NEXT
End
If A==2 and E==2 and I==0
Then
9»O
Goto NEXT
End
If A==2 and I==2 and E==0
Then
5»O
Goto NEXT
End
If I==2 and E==2 and A==0
Then
1»O
Goto NEXT
End
If G==2 and E==2 and C==0
Then
3»O
Goto NEXT
End
If C==2 and E==2 and G==0
Then
7»O
Goto NEXT
End
If G==2 and C==2 and E==0
Then
5»O
Goto NEXT
End
If A==2 and C==2 and B==0
Then
2»O
Goto NEXT
End
If D==2 and F==2 and E==0
Then
5»O
Goto NEXT
End
If G==2 and I==2 and H==0
Then
8»O
Goto NEXT
End
If A==2 and G==2 and D==0
Then
4»O
Goto NEXT
End
If H==2 and B==2 and E==0
5»O
Goto NEXT
End
If C==2 and I==2 and F==0
Then
6»O
Goto NEXT
End
If A==2 and I==2 and E==0
Then
5»O
Goto NEXT
End
If A==1 and B==1 and C==0
Then
3»O
Goto NEXT
End
If D==1 and E==1 and F==0
Then
6»O
Goto NEXT
End
If G==1 and H==1 and I==0
Then
9»O
Goto NEXT
End
If A==1 and D==1 and G==0
Then
7»O
Goto NEXT
End
If B==1 and E==1 and H==0
Then
8»O
Goto NEXT
End
If C==1 and F==1 and I==0
Then
9»O
Goto NEXT
End
If B==1 and C==1 and A==0
Then
1»O
Goto NEXT
End
If E==1 and F==1 and D==0
Then
4»O
Goto NEXT
End
If H==1 and I==1 and G==0
Then
7»O
Goto NEXT
End
If D==1 and G==1 and A==0
Then
1»O
Goto NEXT
End
If E==1 and H==1 and B==0
Then
2»O
Goto NEXT
End
If F==1 and I==1 and C==0
Then
3»O
Goto NEXT
End
If A==1 and E==1 and I==0
Then
9»O
Goto NEXT
End
If A==1 and I==1 and E==0
Then
5»O
Goto NEXT
End
If I==1 and E==1 and A==0
Then
1»O
Goto NEXT
End
If G==1 and E==1 and C==0
Then
3»O
Goto NEXT
End
If C==1 and E==1 and G==0
Then
7»O
Goto NEXT
End
If G==1 and C==1 and E==0
Then
5»O
Goto NEXT
End
If A==1 and C==1 and B==0
Then
2»O
Goto NEXT
End
If D==1 and F==1 and E==0
Then
5»O
Goto NEXT
End
If G==1 and I==1 and H==0
Then
8»O
Goto NEXT
End
If A==1 and G==1 and D==0
Then
4»O
Goto NEXT
End
If H==1 and B==1 and E==0
Then
5»O
Goto NEXT
End
If C==1 and I==1 and F==0
Then
6»O
Goto NEXT
End
If A==1 and I==1 and E==0
Then
5»O
Goto NEXT
End
If D==1 and I==0
Then
9»O
Goto NEXT
End
If B==1 and G==0
Then
7»O
Goto NEXT
End
If F==1 and A==0
Then
1»O
Goto NEXT
End
If H==1 and C==1
Then
3»O
Goto NEXT
End
If A==1 and F==1 and C==0
Then
3»O
Goto NEXT
End
If A==1 and E==2 and I==1 and F==0
Then
6»O
Goto NEXT
End
If C==1 and E==2 and G==1 and F==0
Then
6»O
Goto NEXT
End
If A==1 and H==1 and I==0
Then
9»O
Goto NEXT
End
If C==1 and H==1 and G==0
Then
7»O
Goto NEXT
End
If G==1 and B==1 and C==0
Then
3»O
Goto NEXT
End
If I==1 and B==1 and A==0
Then
1»O
Goto NEXT
End
IF A==1 or C==1 of G==1 or I==1 and E==0
Then
5»O
Goto NEXT
End
If A==1 and B==1 and E==0 and C==2
Then
5»O
Goto NEXT
End
If C==1 and F==1 and E==0 and I==2
Then
5»O
Goto NEXT
End
If I==1 and H==1 and E==0 and G==2
Then
5»O
Goto NEXT
End
If G==1 and D==1 and E==0 and A==2
Then
5»O
Goto NEXT
End
If C==1 and B==1 and E==0 and A==2
Then
5»O
Goto NEXT
End
If A==1 and D==1 and E==0 and G==2
Then
5»O
Goto NEXT
End
If G==1 and H==1 and E==0 and I==2
Then
5»O
Goto NEXT
End
If I==1 and F==1 and E==0 and C==2
Then
5»O
Goto NEXT
End
Lbl PLAYER3
randM(1,1)DO
norm ODO
Lbl NEXT
If O==1 and A==0
Then Outpt(2,6,"O")
2»A
Goto Next2
End
If O==2 and B==0
Then Outpt(2,10,"O")
2»B
Goto Next2
End
If O==3 and C==0
Then Outpt(2,14,"O")
2»C
Goto Next2
End
If O==4 and D==0
Then Outpt(4,6,"O")
2»D
Goto Next2
End
If O==5 and E==0
Then Outpt(4,10,"O")
2»E
Goto Next2
End
If O==6 and F==0
Then Outpt(4,14,"O")
2»F
Goto Next2
End
If O==7 and G==0
Then Outpt(6,6,"O")
2»G
Goto Next2
End
If O==8 and H==0
Then Outpt(4,10,"O")
2»H
Goto Next2
End
If O==9 and I==0
Then Outpt(6,14,"O")
2»I
Goto Next2
End
Goto PLAYER3
Lbl NEXT2
If A==2 and B==2 and C==2
Then
Goto TI85
End
If D==2 and E==2 and F==2
Then
Goto TI85
End
If G==2 and H==2 and I==2
Then
Goto TI85
End
If A==2 and D==2 and G==2
Then
Goto TI85
End
If B==2 and E==2 and H==2
Then
Goto TI85
End
If C==2 and F==2 and I==2
Then
Goto TI85
End
If A==2 and E==2 and I==2
Then
Goto TI85
End
If C==2 and E==2 and G==2
Then
Goto TI85
End
If A>0 and B>0 and C>0 and D>0 and E>0 and F>0 and G>0 and H>0 and I>0
Then
Goto TIE
End
Goto START
Lbl TIE
Disp "The game is a tie"
Pause
Goto PLAYA
Lbl TI85
Disp"TI85 Wins, you lose"
Pause
Goto PLAYA
Lbl HUMAN
Disp "You Win"
Pause
Goto PLAYA
Lbl PLAYA
ClLCD
Disp "Would you like to","play again"
Menu(1,"Yes",START2,2,"NO",EXIT)
Lbl Exit
ClLCD
Disp "This program has"
Disp "been brought to you"
Disp "by Chris Shepherd"
Disp "Thank you for playing"
Pause
ClLCD
Stop

 Go to top of page.